home *** CD-ROM | disk | FTP | other *** search
/ Aminet 28 / Aminet 28 (1998)(GTI - Schatztruhe)[!][Dec 1998].iso / Aminet / comm / www / UrbCedWWW.lha / urbcedwww / rexx / QueryIB.ucwx < prev   
Encoding:
Text File  |  1998-09-30  |  1.0 KB  |  45 lines
  1. /**************************************************************************/
  2. /*                              QueryIB.ucwx                              */
  3. /*                                                                        */
  4. /*                    Copyright ©1998 by Dick Whiting                     */
  5. /*                                                                        */
  6. /*------------------------------------------------------------------------*/
  7. /*        Used with UrbCedWWW for getting an IBrowse title or URL         */
  8. /**************************************************************************/
  9. /*
  10. $VER: 1.0 Copyright ©1998 by Dick Whiting
  11. */
  12.  
  13. portname='IBROWSE'
  14.  
  15. options results
  16. Address CYGNUSED
  17.  
  18. arg type
  19.  
  20. if type='' then type='URL'
  21.  
  22. 'STATUS INSERTMODE'
  23. ison=result
  24.  
  25. if ~ison then 'INSERT MODE'
  26.  
  27. if ~show(p,portname) then do
  28.    'OKAY1' 'IBrowse port not found'
  29.    exit
  30. end
  31.  
  32. Address 'IBROWSE' 'QUERY 'type
  33. title=result
  34.  
  35. if title='' or title='RESULT' then do
  36.    'OKAY1' 'Title not found'
  37.    exit
  38. end
  39.  
  40. 'TEXT' title
  41. 'CEDTOFRONT'
  42.  
  43. exit
  44.  
  45.